Datos de felinos de Costa Rica

Carga de paquetes de R

# Carga de paquetes de R 
library(dplyr)
library(ggplot2) 
library(plotly) 
library(DT) 
library(sf) 
library(terra) 
library(raster) 
library(leaflet) 

Visualizaciones de datos

Tablas

Registros de presencia

# Visualización de datos de felinos en formato tabular
felinos %>%
  st_drop_geometry() %>% # se suprime la columna de geometría
  dplyr::select(species,
                # selección de columnas
                eventDate,
                stateProvince,
                locality,
                decimalLongitude,
                decimalLatitude) %>%
  datatable(
    options = list(
      pageLength = 5,
      # cantidad de registros en una página
      language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json') # traducción al español
    ),
    colnames = c(
      # encabezados de las columnas
      "Especie",
      "Fecha",
      "Provincia",
      "Localidad",
      "Longitud",
      "Latitud"
    )
  )

#Graficos

Registros de presencia por especie

graficos_barras <-
  felinos %>%
  ggplot(aes(x = species)) +
  geom_bar() 
ggplotly(graficos_barras)

Mapa

Registros de presencia

leaflet() %>%
  addTiles() %>% 
  addCircleMarkers( 
    data = felinos,
    stroke = F,
    radius = 4,
    fillColor = 'blue',
    fillOpacity = 1
  )